dialog awaysys {
  title " Velocity Script Away System "
  size -1 -1 150 130
  option dbu

  tab "Settings",1, 1 1 148 128 
  tab "About",2, 1 1 148 128

  button "Close",3, 117 108 30 20, OK

  text "Nickname when Away:",4, 3 20 60 7, tab 1
  edit "",5, 3 28 80 9, tab 1 autohs
  button "Set",6, 84 28 20 9, tab 1
  text "Time (seconds) between messages:",7, 3 40 100 7, tab 1
  edit "",8, 3 48 80 9, tab 1 autohs
  button "Set",9, 84 48 20 9, tab 1
  text "Away Message:",10, 3 70 60 7, tab 1
  edit "",11, 3 78 80 9, tab 1 autohs
  button "Set Away",12, 84 78 30 9, tab 1
  button "Set Back",13, 115 78 30 9, tab 1

  icon 22, 0 1 150 150, Space6.jpg, tab 2
  text "Velocity Script Away System",23, 70 5 80 7, tab 2
  text "Velocity Script Away System",24, 70 5 80 7, tab 1
  text "V1.0",25, 125 60 13 7, tab 2
  text "Made by",26, 121 68 21 7, tab 2
  text "xpu|se",27, 119 76 26 7, tab 2
}

on *:dialog:awaysys:init:*: { 
  if (%awaynick == $null) { set %awaynick Nothing-Away | did -a awaysys 5 %awaynick } 
  else { did -a awaysys 5 %awaynick } 
  if (%awaytime == $null) { set %awaytime 3600 | did -a awaysys 8 %awaytime } 
  else { did -a awaysys 8 %awaytime } 
  if (%awaym == $null) { set %awaym <Enter Message Here> | did -a awaysys 11 %awaym }
  else { did -a awaysys 11 %awaym }
}

on *:dialog:awaysys:sclick:6: { set %awaynick $did(5,$did(5).text) }
on *:dialog:awaysys:sclick:9: { set %awaytime $did(8,$did(8).text) }
on *:dialog:awaysys:sclick:20: { set %aw.page ON | did -ra awaysys 19 %aw.page }
on *:dialog:awaysys:sclick:21: { set %aw.page OFF | did -ra awaysys 19 %aw.page }
on *:dialog:awaysys:sclick:12: { awaysys }
on *:dialog:awaysys:sclick:13: { backsys }

alias awaysys {
/amsg 14 4A10way2 - %awaym - 4L10eft 4A10t2 - %time - 4P10ager 4I10s2 - %aw.page - 4V10elocity 4A10way 4S10ystem 14 }
}

alias backsys {
/away | /amsg 14 4B10ack2 -  %awaym  - 4B10een 4G10one2 - $duration($calc(%back.time - %away.time)) - 4V10elocity 4A10way 4S10ystem 14 
}
